Voorbeeld van de functie Environ

Dit voorbeeld maakt gebruik van de functie Environ om het regelnummer en de regellengte van de instructie PATH in de tabel met omgevingsreeksen als resultaat te geven. Niet beschikbaar op de Macintosh.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1    ' Initialize index to 1.
Do
    EnvString = Environ(Indx)    ' Get environment
                ' variable.
    If Left(EnvString, 5) = "PATH=" Then    ' Check PATH entry.
        PathLen = Len(Environ("PATH"))    ' Get length.
        Msg = "PATH-regelnummer = " & Indx & " en PATH-lengte = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1    ' Not PATH entry,
    End If    ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg    ' Display message.
Else
    MsgBox "Er is geen variabele voor de PAD-omgeving."
End If